home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / gui / GadEd20Demo.lha / Modula-2 / Test.def next >
Encoding:
Modula Definition  |  1993-10-13  |  3.0 KB  |  88 lines
  1. DEFINITION MODULE Test;
  2.  
  3. (* Erstellt mit GadEd V1.10 *)
  4. (* Geschrieben von Michael Neumann und Thomas Patschinski *)
  5.  
  6. FROM ExecD      IMPORT List;
  7. FROM IntuitionD IMPORT WindowPtr,GadgetPtr,ScreenPtr,MenuPtr;
  8. FROM UtilityD   IMPORT tagUser,TagItemPtr;
  9.  
  10. CONST
  11.  
  12.       (* Proc000-Requester *)
  13.       (* Gadget Lables *)
  14.  
  15.       Proc000GadEdGadget000              = 0;
  16.       Proc000GadEdGadget001              = 1;
  17.       Proc000GadEdGadget002              = 2;
  18.       Proc000GadEdGadget003              = 3;
  19.       Proc000GadEdGadget004              = 4;
  20.       Proc000GadEdGadget005              = 5;
  21.       Proc000GadEdGadget006              = 6;
  22.       Proc000GadEdGadget007              = 7;
  23.       Proc000GadEdGadget008              = 8;
  24.       Proc000GadEdGadget009              = 9;
  25.       Proc000GadEdGadget010              = 10;
  26.       Proc000GadEdGadget011              = 11;
  27.       Proc000GadEdGadget012              = 12;
  28.       Proc000GadEdGadget013              = 13;
  29.       Proc000GadEdGadget014              = 14;
  30.       Proc000GadEdGadget015              = 15;
  31.       Proc000GadEdGadget016              = 16;
  32.       Proc000GadEdGadget017              = 17;
  33.       Proc000GadEdGadget018              = 18;
  34.       Proc000GadEdGadget019              = 19;
  35.       Proc000GadEdGadget020              = 20;
  36.       Proc000GadEdGadget021              = 21;
  37.       Proc000GadEdGadget022              = 22;
  38.       Proc000GadEdGadget023              = 23;
  39.       Proc000GadEdGadget024              = 24;
  40.       Proc000GadEdGadget025              = 25;
  41.       Proc000GadEdGadget026              = 26;
  42.       Proc000GadEdGadget027              = 27;
  43.  
  44.       (* Menü Lables *)
  45.  
  46.       Proc000GadEdTitel000               = 0;
  47.       Proc000GadEdItem000                = 0;
  48.       Proc000GadEdItem001                = 2;
  49.       Proc000GadEdItem002                = 3;
  50.       Proc000GadEdItem003                = 5;
  51.       Proc000GadEdTitel001               = 1;
  52.       Proc000GadEdItem004                = 0;
  53.       Proc000GadEdItem005                = 1;
  54.       Proc000GadEdItem006                = 2;
  55.       Proc000GadEdTitel002               = 2;
  56.       Proc000GadEdItem007                = 0;
  57.       Proc000GadEdSub000                 = 0;
  58.       Proc000GadEdSub001                 = 2;
  59.       Proc000GadEdItem008                = 1;
  60.       Proc000GadEdItem009                = 2;
  61.       Proc000GadEdItem010                = 3;
  62.       Proc000GadEdItem011                = 5;
  63.       Proc000GadEdItem012                = 6;
  64.       Proc000GadEdTitel003               = 3;
  65.       Proc000GadEdItem013                = 0;
  66.       Proc000GadEdItem014                = 1;
  67.       Proc000GadEdItem015                = 3;
  68.       Proc000GadEdSub002                 = 0;
  69.       Proc000GadEdSub003                 = 1;
  70.  
  71. VAR
  72.     ListViewList0:          ARRAY [0..1] OF List;
  73.  
  74.     Menu0:                  MenuPtr;
  75.  
  76. PROCEDURE InitTest(S: ScreenPtr;UserTags:TagItemPtr): BOOLEAN;
  77.  
  78.  
  79. PROCEDURE RefreshProc000;
  80. PROCEDURE InitProc000Mask(UserTags:TagItemPtr): WindowPtr;
  81. PROCEDURE GetProc000GPtr(Nummer:INTEGER): GadgetPtr;
  82. PROCEDURE CloseProc000Mask;
  83.  
  84.  
  85. PROCEDURE FreeTest;
  86.  
  87. END Test.
  88.